www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminLableHLP\D_do_search_show_all_labels_hlp.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<%
dir_set="../../"
Server.ScriptTimeout=9999999
session.timeout=600
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<LINK href="../css.css" type=text/css rel=stylesheet>
<body>
<table width="692">
<tr>
<td bgcolor="#deEcFc" align="left">
<p><strong>注意:<br />
1.调用标签时的格式: {$$标签名(标签参数1具体值,标签参数2具体值,....)},比如{$$show(1,3,2,7)}这样,</strong><br />
<strong><br />
2.帮助文档里标签参数里指的频道或频道id可以在后台的主系统菜单里的菜单与频道管理(设计系统)里点频道管理(或栏目管理)，出现的表格里第一列就是频道id</strong><br />
<br />
<strong>3.帮助文档里标签参数里指的类别或分类id可以在后台的主系统菜单里点击比如新闻管理里的分类管理，出现的的表格里第一列名为id的列里的数字就是分类id，下载频道类的分类id则要在软件下载管理之类里的分类管理里查看</strong><br />
<br />
<strong>4.帮助文档里标签参数里指的各文件名类参数可以在后台的主系统菜单里的菜单与频道管理(设计系统)里点击配置当前模板的频道内部链接文件，可以直接用出现的表格里的"模板或标签代码引用此文件名用的标签"这列里的标签来引用某模板文件名而代入</strong><br />
<strong><br />
5.$xx_request_asp$XXXX比如$xx_request_asp$id用来读取网址里?id=后或&id=后的值,$xx_request_asp$cid用来读取网址里?cid=后或&cid=后的值，等等<br />
<br />
6.用$xx_request_asp$XXXX之类时$xx_request_asp$XXXX外面不能加双引号</strong><br />
<br />
<br />
</p>
</td></tr>
<%
set filea=new Cls_FSO
set fileb=new DosAsp
ppath=request("ppath")
if ppath="" then
sssd=""
else
sssd="/"
end if
dim haved,num_folders,flst()
dim iff
haved=0
function list_folder_s_files(iq)
if iq="root" then
npath=""
else
npath=flst(iq,0)
end if
ss3=filea.ShowFolderList(server.mappath("../../Label/custom_Label/"&ppath&sssd&npath))
ss4=filea.ShowFileList(server.mappath("../../Label/custom_Label/"&ppath&sssd&npath))
if ss3=-1 or ss3="" then
nofolder=1
numf1=0
else
ss3=left(ss3,len(ss3)-1)'去掉最后一个|号
'处理文件夹
fl1=split(ss3,"|")
numf1=ubound(fl1)+1
end if
if ss4=-1 or ss4="" then
nofiles=1
numf2=0
else
ss4=left(ss4,len(ss4)-1) '去掉最后一个|号
'处理文件
fl2=split(ss4,"|")
numf2=ubound(fl2)+1
end if
'response.write numf1+numf2
if haved=0 then
old_len=0
else
old_len=ubound(flst)+1
end if
if old_len+(numf1+numf2)>=1 then haved=1
redim cache_list(old_len,3)
for k=0 to old_len-1
cache_list(k,0)=flst(k,0)
cache_list(k,1)=flst(k,1)
cache_list(k,2)=flst(k,2)
next
redim flst(old_len+(numf1+numf2)-1,3)
for k=0 to old_len-1
flst(k,0)=cache_list(k,0)
flst(k,1)=cache_list(k,1)
flst(k,2)=cache_list(k,2)
next
for iw=old_len to (old_len+numf1-1)
ii=iw-old_len
sssf="/"
if npath="" then sssf=""
flst(iw,0)=npath&sssf&fl1(ii)
flst(iw,1)=0 '=0表示文件夹
flst(iw,2)=0 '=0表示文件夹未展开为文件，=1表示文件夹已展开为文件
next
for i=old_len+numf1 to old_len+numf1+numf2-1
ii=i-(old_len+numf1)
sssf="/"
if npath="" then sssf=""
flst(i,0)=npath&sssf&fl2(ii)
flst(i,1)=1 '=1表示文件
flst(i,2)=1
iff=iff+1
if iff mod 2<>0 then
ssclo="#CDE7FA"
else
ssclo="#deEcFc"
end if
%>
<%
if filea.ReportFileStatus(server.mappath("../../Label/custom_Label/"&flst(i,0)))=1 then
dddd=loadfile("../../Label/custom_Label/"&flst(i,0))
call get_info_array_from_label_file_content(dddd)
needshow1=1
needshow2=1
needshow3=1
if request("data1")<>"" then
if instr(1,request("data1"),"(",1)<>0 then
kkky=trim(left(request("data1"),instr(1,request("data1"),"(",1)-1))
else
kkky=trim(request("data1"))
end if
kkky=replace(kkky,"}","")
if instr(1,nd1_l_name,kkky,1)=0 then
needshow1=0
end if
end if
if request("data3")<>"" then
if instr(1,nd1_label_beizhu,trim(request("data3")),1)=0 then
needshow2=0
end if
end if
if request("data4")<>"" then
if instr(1,nd1_label_beizhu,trim(request("data4")),1)=0 then
needshow3=0
end if
end if
if needshow1=1 and needshow2=1 and needshow3=1 then
%>
<tr><td height="5">
</td></tr>
<tr><td bgcolor="<%=ssclo%>" align="left">
<table border="1" bordercolor="#9999f4" width="100%" align="left">
<tr><td>
标签名:<br />{$$<%=nd1_l_name%>}<br />
标签作用:<br /><strong><font color="#0000CC"><%=nd1_label_beizhu%></font></strong><br />
<%
pascc=""
if trim(nd1_label_params)="" then
lll=-1
else
ssssppp=split(nd1_label_params,"|")
lll=ubound(ssssppp)
end if
for inn=0 to lll
ssssppp2=split(ssssppp(inn),",")
sss1=ssssppp2(0)
sss2=ssssppp2(1)
if ubound(ssssppp2)<2 then
sss3="2"
else
sss3=ssssppp2(2)
end if
if sss3="1"then pascc=pascc&"""XX""或$xx_request_asp$XXXX,"
if sss3="2"then pascc=pascc&"XX,"
if sss3="3"then pascc=pascc&"100,"
next
if len(pascc)>=2 then
pascc=left(pascc,len(pascc)-1)
end if
%>
此标签调用示例:<br /><font color="#004499">
{$$<%=nd1_l_name%>(<%=pascc%>)} <br /><br /> (注:其参数具体值不准,只做演示用,"XX"代表为一个被双引号包住的字符串或数字,XX代表一个不被双引号包住的字符串或数字,$xx_request_asp$XXXX代表比如$xx_request_asp$id(即读取网址里?id=后的值)之类,100代表不被双引号包住的纯数字类参数,标记为XX类的参数也可能可以用$xx_request_asp$XXXX之类的代入(但是如果运行出错请还原为XX类的),用$xx_request_asp$XXXX类时$xx_request_asp$XXXX外面不能加双引号,实际调用时把"XX"或XX或100等改为实际具体值)
</font>
<br />
标签参数列表:<br />
<table width="678" cellspacing="2" cellpadding="1">
<%
if trim(nd1_label_params)="" then
lll=-1
%>
<tr>
<td width="160" colspan="2">
<strong>无参数</strong>
</td>
</tr>
<%
else
ssssppp=split(nd1_label_params,"|")
lll=ubound(ssssppp)
end if
%>
<%
for inn=0 to lll
ssssppp2=split(ssssppp(inn),",")
sss1=ssssppp2(0)
sss2=ssssppp2(1)
if ubound(ssssppp2)<2 then
sss3="2"
else
sss3=ssssppp2(2)
end if
pascc=""
if sss3="1"then pascc="参数外需要加引号或参数值为形如$xx_request_asp$XXXX,$xx_var_asp$XXXX之类"
if sss3="2"then pascc="参数外不需要加引号或可能参数值可以为形如$xx_request_asp$XXXX,$xx_var_asp$XXXX之类"
if sss3="3"then pascc="参数要为不加双引号的纯数字"
ssclo2="#b1c7eA"
'ssclo2="#fefcFc"
%>
<tr bgcolor="<%=ssclo2%>">
<td width="60">
<font color="#0000ff"><strong>参数<%=inn+1%>的参数名:</strong></font> </td>
<td width="101" style="word-break:break-all">
<%=sss1%></td>
<td width="501">
<table>
<tr><td width="95" bgcolor="#C1D2EE">
<font color="#0000ff"><strong>参数作用:</strong></font> </td>
<td width="388" bgcolor="#C1D2EE" style="word-break:break-all">
<%=sss2%>
</td></tr>
<tr><td bgcolor="#99B5E3">
<font color="#0000ff"><strong>参数格式限制:</strong></font> </td>
<td width="388" bgcolor="#99B5E3" style="word-break:break-all">
<font color=#ff0000><%=pascc%></font>
</td></tr>
</table>
</td>
</tr>
<%next%>
</table>
</td></tr></table>
</td></tr>
<% end if
end if%>
<%
response.Flush()
next
'test----------------------------------
'response.write "<br>called end "
'for iii=0 to ubound(flst)
'response.write "<br> <font color=#00ffff>iii="&iii&":"&flst(iii,0)&" is_opend:"&flst(iii,2)&"</font><br>"
'next
'end test-----------------------------
end function
function zhangkai_all_folder()
num_folders=0
if haved=0 then
a_len=-1
else
a_len=ubound(flst)
end if
for iq=0 to a_len
'response.write a_len
if flst(iq,1)=0 and flst(iq,2)=0 then
flst(iq,2)=1
call list_folder_s_files(iq)
response.Flush()
num_folders=num_folders+1
'递归遍历
call zhangkai_all_folder()
if haved=0 then
a_len=-1
else
a_len=ubound(flst)
end if
end if
next
end function
function list_all_files()
if haved=0 then
a_len=-1
else
a_len=ubound(flst)
end if
for ipp=0 to a_len
if flst(ipp,1)=1 then
response.write flst(ipp,0)&"<br>"
end if
next
end function
function list_hlp()
if haved=0 then
a_len=-1
else
a_len=ubound(flst)
end if
for ipp=0 to a_len
if flst(ipp,1)=1 then
eee1=flst(ipp,0)
if instr(1,eee1,"{",1)=0 and instr(1,eee1,"}",1)=0 then
'得到文件大小 sss111/1024
sss111=filea.ShowFileAccessInfo(server.mappath("../../templates/"&ppath&sssd&eee1),7)
else
sss111=0
end if
extnm=lcase(mid(eee1,inStrRev(eee1,".")+1,len(eee1)-inStrRev(eee1,".")))
end if
next
end function
call list_folder_s_files("root")
call zhangkai_all_folder()
'call list_hlp()
%>
</table>
</body>
</html>